(define (assoc key tbl)
  (if (null? tbl)
      #f
      (if (eq? key (car (car tbl)))
          (car tbl)
          (assoc key (cdr tbl)))))
